﻿Public Class frmMain
    'Private LoadedForms As New Dictionary(Of System.Type, Form)

    Private Sub GradientPanelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GradientPanelToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmGradientPanel, Me)
    End Sub

    Private Sub BarGaugeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarGaugeToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmBarGauge, Me)
    End Sub

    Private Sub MultiBarGaugeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MultiBarGaugeToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmMultiBarGauge, Me)
    End Sub

    Private Sub LEDGaugeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LEDGaugeToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmLEDGauge, Me)
    End Sub

    Private Sub LightGaugeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LightGaugeToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmStatusLight, Me)
    End Sub

    Private Sub CylinderGaugeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CylinderGaugeToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmCylinderGauge, Me)
    End Sub

    Private Sub RadialGaugeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadialGaugeToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmRadialGauge, Me)
    End Sub

    Private Sub LED8SegmentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LED8SegmentToolStripMenuItem.Click
        PolyMonControls.Utilities.LoadSingleInstanceForm(frmLED8Segment, Me)
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        Dim myAbout As New frmAbout
        frmAbout.ShowDialog()
    End Sub
End Class